home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / prolog68.zoo / prolog.68 / codes / driver.wam < prev    next >
Encoding:
Text File  |  1994-06-03  |  13.6 KB  |  237 lines
  1. Compiler driver
  2. p'assert_clauses'/2 74 528 12 6 12 532 12 8 33 0 547 518 534 512 8 1 -4
  3. 96 289 273 81 '-'/2 257 288 514 p'assertz'/1 0 144 -8 145 -4 513 20 515
  4. p'assert_clauses'/2
  5.  
  6. p'assert_clauses'/5 84 512 20 2 -12 3 -20 4 -16 114 -4 127 2048 -8 516 520
  7. 160 -4 20 145 -8 516 524 160 -8 20 516 568 144 -12 514 p'assertz'/1 12 144
  8. -8 145 -4 513 20 515 p'assert_clauses'/2
  9.  
  10. p'assert_or_output'/5 150 528 146 146 110 532 26 20 48 'compile' 81 '/'/2
  11. 288 289 515 p'assert_clauses'/5 533 24 48 'consult' 81 '/'/2 288 289 515
  12. p'assert_clauses'/5 534 48 'translate' 512 4 1 -4 176 'Off-line processing of dynamic predicates not supported yet.'
  13. 514 p'message'/1 0 176 'Ignoring ' 145 -4 513 16 515 p'message'/2 529 24
  14. [ 'compile' -102 'consult' -76 'translate' -52] 520
  15.  
  16. p'compile'/1 456 528 58 444 434 532 10 4 64 547 518 533 36 96 288 512 4
  17. 272 547 514 p'compile'/1 0 144 -4 513 16 515 p'compile'/1 534 512 36 0 -16
  18. 544 -36 128 177 '| ' 127 2048 -32 127 2048 -28 127 2048 -24 127 2048 -20
  19. 127 2048 -12 127 2048 -8 127 2048 -4 516 292 176 'program' 225 341 371 257
  20. 369 514 p'statistics'/2 0 176 'runtime' 225 343 371 257 369 514 p'statistics'/2
  21. 0 545 -12 538 68 545 -8 538 48 144 -16 145 -4 514 p'read_file'/2 0 160 -4
  22. 36 177 'compile' 514 p'process_preds'/2 0 548 -8 520 519 4 540 548 -12 520
  23. 519 4 540 176 'runtime' 225 342 371 257 369 514 p'statistics'/2 12 176 'program'
  24. 225 337 371 257 369 514 p'statistics'/2 0 177 0 731 176 'user_output' 516
  25. 268 176 'user_output' 145 -4 516 212 176 'user_output' 177 ' compiled, '
  26. 516 212 385 386 501 433 176 'user_output' 516 212 176 'user_output' 177
  27. ' bytes in ' 516 212 387 388 501 433 176 'user_output' 516 212 176 'user_output'
  28. 177 ' ms]' 516 212 176 'user_output' 514 p'nl'/1 20 548 -4 513 16 518 535
  29. -428 4 537 -384 535 -428 4 537 -394
  30.  
  31. p'compile_file'/1 118 512 16 0 -16 144 -16 113 -4 127 2048 -12 127 2048
  32. -8 516 396 160 -4 16 225 368 0 371 371 368 0 699 371 368 0 523 371 368 0
  33. 619 369 146 -8 514 p'append'/3 4 144 -8 161 -4 12 516 396 144 -12 161 -8
  34. 12 513 24 515 p'compile_file'/2
  35.  
  36. p'compile_file'/2 378 512 36 0 -24 1 -28 128 177 '| ' 127 2048 -36 127 2048
  37. -32 127 2048 -20 127 2048 -16 127 2048 -12 127 2048 -8 127 2048 -4 516 292
  38. 144 -28 177 'write' 146 -20 514 p'open_file'/3 0 144 -16 516 356 144 -20
  39. 516 348 176 'runtime' 225 344 371 257 369 514 p'statistics'/2 0 545 -12
  40. 538 68 545 -8 538 48 144 -24 145 -4 514 p'read_file'/2 0 160 -4 36 177 'translate'
  41. 514 p'process_preds'/2 0 548 -8 520 519 4 540 548 -12 520 519 4 540 176
  42. 'runtime' 225 343 371 257 369 514 p'statistics'/2 12 160 -4 24 516 348 160
  43. -8 24 514 p'close'/1 8 177 0 731 176 'user_output' 516 268 176 'user_output'
  44. 145 -4 516 212 176 'user_output' 177 ' compiled to ' 516 212 176 'user_output'
  45. 145 -8 516 212 176 'user_output' 177 ', total time ' 516 212 386 387 501
  46. 433 176 'user_output' 516 212 176 'user_output' 177 ' ms]' 516 212 176 'user_output'
  47. 513 28 515 p'nl'/1
  48.  
  49. p'compile_pred'/5 174 532 62 20 34 4 99 293 369 85 'code'/2 293 290 101
  50. 293 289 85 'label'/1 293 100 292 369 84 '-'/2 291 325 547 515 p'translate'/4
  51. 534 97 293 512 20 275 85 '-'/2 257 276 2 -12 99 293 273 85 'code'/2 293
  52. 290 101 293 289 85 'label'/1 293 100 292 272 84 '-'/2 291 325 514 p'translate'/4
  53. 0 144 -20 145 -16 146 -12 147 -8 148 -4 513 32 515 p'compile_pred'/5
  54.  
  55. p'consult'/1 456 528 58 444 434 532 10 4 64 547 518 533 36 96 288 512 4
  56. 272 547 514 p'consult'/1 0 144 -4 513 16 515 p'consult'/1 534 512 36 0 -16
  57. 544 -36 128 177 '| ' 127 2048 -32 127 2048 -28 127 2048 -24 127 2048 -20
  58. 127 2048 -12 127 2048 -8 127 2048 -4 516 292 176 'program' 225 341 371 257
  59. 369 514 p'statistics'/2 0 176 'runtime' 225 343 371 257 369 514 p'statistics'/2
  60. 0 545 -12 538 68 545 -8 538 48 144 -16 145 -4 514 p'read_file'/2 0 160 -4
  61. 36 177 'consult' 514 p'process_preds'/2 0 548 -8 520 519 4 540 548 -12 520
  62. 519 4 540 176 'runtime' 225 342 371 257 369 514 p'statistics'/2 12 176 'program'
  63. 225 337 371 257 369 514 p'statistics'/2 0 177 0 731 176 'user_output' 516
  64. 268 176 'user_output' 145 -4 516 212 176 'user_output' 177 ' consulted, '
  65. 516 212 385 386 501 433 176 'user_output' 516 212 176 'user_output' 177
  66. ' bytes in ' 516 212 387 388 501 433 176 'user_output' 516 212 176 'user_output'
  67. 177 ' ms]' 516 212 176 'user_output' 514 p'nl'/1 20 548 -4 513 16 518 535
  68. -428 4 537 -384 535 -428 4 537 -394
  69.  
  70. p'find_next_pred'/3 46 528 38 6 38 532 28 12 96 291 288 83 '-'/2 353 257
  71. 547 515 p'find_next_pred'/3 534 34 0 518
  72.  
  73. p'gen_var_chain'/4 104 528 100 6 100 532 38 16 96 288 369 80 'code'/2 288
  74. 354 97 289 320 81 'label'/1 355 547 518 534 96 292 288 84 'code'/2 292 293
  75. 97 294 371 295 324 86 'label'/1 355 87 'try_me_else'/1 291 245 4 515 p'gen_vc_1'/4
  76. 520
  77.  
  78. p'gen_vc_1'/4 112 528 108 6 108 532 46 16 96 288 369 80 'code'/2 288 354
  79. 97 289 371 368 'trust_me_else_fail' 320 81 'label'/1 355 547 518 534 96
  80. 292 288 84 'code'/2 292 293 97 294 371 295 324 86 'label'/1 355 87 'retry_me_else'/1
  81. 291 245 4 515 p'gen_vc_1'/4 520
  82.  
  83. p'illegal_directive'/1 42 512 4 0 -4 176 '!?   ERROR : Illegal directive.'
  84. 514 p'message'/1 0 176 '!?   ------- ' 145 -4 513 16 515 p'message'/2
  85.  
  86. p'load_or_output'/4 276 528 272 272 236 532 148 16 48 'compile' 81 '/'/2
  87. 512 28 273 272 242 0 243 4 146 -4 115 -20 116 -16 127 2048 -28 127 2048
  88. -24 127 2048 -12 514 p'wrap_up'/5 0 144 -8 145 -4 146 -12 516 520 160 -12
  89. 28 145 -28 516 524 144 -28 516 564 160 -20 28 161 -16 28 146 -24 516 532
  90. 160 -28 28 161 -24 28 513 40 517 560 534 48 'translate' 81 '/'/2 512 16
  91. 275 274 242 0 243 4 146 -12 115 -8 116 -4 514 p'wrap_up'/5 0 144 -16 145
  92. -12 162 -4 16 163 -8 16 513 28 515 p'out_predicate'/4 529 24 [ 'compile'
  93. -228 'translate' -82] 520
  94.  
  95. p'message'/1 34 240 4 176 'user_error' 512 0 516 212 176 'user_error' 513
  96. 12 515 p'nl'/1
  97.  
  98. p'message'/2 52 512 4 1 -4 240 4 176 'user_error' 516 212 176 'user_error'
  99. 145 -4 516 212 176 'user_error' 513 16 515 p'nl'/1
  100.  
  101. p'next_clause'/3 76 528 72 12 22 532 12 12 96 354 353 518 534 64 512 12
  102. 1 -12 2 -8 112 -4 514 p'read_clause'/1 0 160 -4 12 145 -12 146 -8 513 24
  103. 515 p'next_clause_1'/3 520
  104.  
  105. p'next_clause_1'/3 110 528 80 98 88 532 14 12 96 354 353 547 518 533 54
  106. 64 512 12 1 -12 2 -8 547 112 -4 514 p'read_clause'/1 0 160 -4 12 145 -12
  107. 146 -8 513 24 515 p'next_clause_1'/3 534 65 34 0 518 535 -68 12 537 -16
  108. 535 -92 12 537 -26
  109.  
  110. p'open_file'/3 86 532 34 12 34 0 512 4 544 -4 514 p'predefined_stream'/1
  111. 0 548 -4 513 16 518 534 512 12 1 -12 2 -8 113 -4 514 p'absolute_file_name'/2
  112. 0 160 -4 12 145 -12 146 -8 513 24 515 p'open'/3
  113.  
  114. p'out_atom'/1 64 512 8 0 -4 176 0 315 127 2048 -8 516 264 144 -4 145 -8
  115. 516 404 160 -8 8 514 p'out_name'/1 8 176 0 315 513 12 517 264
  116.  
  117. p'out_code'/1 66 528 62 18 12 532 8 4 64 518 534 96 512 8 272 273 514 p'out_nl_or_blank'
  118. 0 144 -4 514 p'out_item'/1 4 144 -4 513 16 515 p'out_code'/1 520
  119.  
  120. p'out_func'/2 60 532 18 8 49 0 3 547 515 p'out_atom'/1 534 512 4 1 -4 514
  121. p'out_atom'/1 0 176 0 379 516 264 144 -4 513 16 517 208
  122.  
  123. p'out_item'/1 272 532 64 4 512 8 0 -8 544 -4 144 -8 516 656 548 -4 176 0
  124. 731 516 264 144 -8 514 p'out_code'/1 8 176 0 747 513 12 517 264 533 38 512
  125. 8 0 -8 544 -4 144 -8 516 664 548 -4 144 -8 513 20 517 208 533 78 512 16
  126. 544 -4 240 4 112 -8 127 2048 -16 127 2048 -12 516 524 548 -4 144 -16 145
  127. -12 162 -8 16 516 520 160 -16 16 161 -12 16 513 28 515 p'out_pred'/2 533
  128. 52 512 12 544 -4 240 8 112 -12 113 -8 516 520 548 -4 160 -12 12 161 -8 12
  129. 513 24 515 p'out_func'/2 534 240 4 176 '??? Illegal item in compiled code: '
  130. 512 0 514 p'message'/2 0 520 513 12 518
  131.  
  132. p'out_name'/1 234 528 230 212 12 532 8 4 64 518 533 52 96 368 0 83 512 4
  133. 272 547 176 0 739 516 264 176 0 883 516 264 144 -4 513 16 515 p'out_name'/1
  134. 533 52 96 368 0 315 512 4 272 547 176 0 739 516 264 176 0 315 516 264 144
  135. -4 513 16 515 p'out_name'/1 533 52 96 368 0 739 512 4 272 547 176 0 739
  136. 516 264 176 0 739 516 264 144 -4 513 16 515 p'out_name'/1 534 96 289 512
  137. 4 272 241 0 516 264 144 -4 513 16 515 p'out_name'/1 535 -198 4 536 -148
  138. 536 -98 537 -48 520
  139.  
  140. p'out_nl_or_blank' 78 532 64 0 512 12 544 -12 112 -4 127 2048 -8 516 356
  141. 160 -4 12 161 -8 12 516 368 385 480 70 488 548 -12 513 24 515 p'nl' 534
  142. 176 0 259 517 264
  143.  
  144. p'out_pred'/2 40 512 8 0 -8 1 -4 176 0 899 516 264 144 -8 145 -4 513 20
  145. 515 p'out_func'/2
  146.  
  147. p'out_predicate'/4 68 512 8 2 -4 3 -8 514 p'out_pred'/2 0 176 0 259 516
  148. 264 144 -4 516 208 144 -8 514 p'out_code'/1 8 514 p'nl' 0 513 12 515 p'nl'
  149.  
  150. p'predicate_indicator'/1 40 528 6 36 36 80 '/'/2 288 512 4 272 516 668 144
  151. -4 513 16 517 664 520
  152.  
  153. p'predicate_indicator'/2 56 528 6 40 40 532 30 8 80 ':-'/2 288 257 81 '/'/2
  154. 289 290 547 517 388 534 81 '/'/2 289 290 517 388
  155.  
  156. p'process_directive'/3 888 528 778 868 868 532 64 12 512 8 0 -8 34 4 544
  157. -4 538 14 144 -8 516 640 519 12 540 144 -8 516 664 548 -4 144 -8 513 20
  158. 515 p'illegal_directive'/1 533 116 80 'dynamic'/1 512 16 273 1 -16 2 -12
  159. 547 545 -4 538 50 144 -8 514 p'predicate_indicator'/1 0 548 -4 144 -16 210
  160. '-'/2 305 368 'dynamic' 225 322 338 516 128 519 32 540 208 'dynamic'/1 305
  161. 514 p'illegal_directive'/1 0 144 -16 145 -12 516 128 513 28 518 533 72 80
  162. 'discontiguous'/1 512 8 273 34 4 547 545 -4 538 22 144 -8 514 p'predicate_indicator'/1
  163. 0 548 -4 519 20 540 208 'discontiguous'/1 305 514 p'illegal_directive'/1
  164. 0 513 20 518 533 84 80 'op'/3 512 16 275 274 273 34 4 547 545 -4 538 26
  165. 144 -16 145 -12 146 -8 516 288 548 -4 519 24 540 208 'op'/3 307 306 305
  166. 514 p'illegal_directive'/1 0 513 28 518 533 104 80 'include'/1 512 16 273
  167. 1 -16 2 -12 547 545 -4 538 38 144 -8 516 668 548 -4 144 -8 145 -16 146 -12
  168. 514 p'process_nested_file'/3 0 519 32 540 208 'include'/1 305 514 p'illegal_directive'/1
  169. 0 144 -16 145 -12 516 128 513 28 518 533 118 512 8 0 -8 34 4 544 -4 144
  170. -8 210 'multifile'/1 257 211 'char_conversion'/2 258 212 'initialization'/1
  171. 257 213 'ensure_loaded'/1 257 225 322 371 323 371 324 371 325 369 514 p'member'/2
  172. 0 548 -4 176 '!?   WARNING : Directive not yet implemented, ignored.' 514
  173. p'message'/1 4 176 '!?   --------- ' 145 -4 513 16 515 p'message'/2 533
  174. 106 512 8 0 -8 34 4 544 -4 144 -8 210 'mode'/1 257 211 'public'/1 257 212
  175. 'meta_predicate'/1 257 225 322 371 323 371 324 369 514 p'member'/2 0 548
  176. -4 176 '!?   WARNING : Directive not supported, ignored.' 514 p'message'/1
  177. 4 176 '!?   --------- ' 145 -4 513 16 515 p'message'/2 534 512 8 0 -8 34
  178. 4 545 -4 538 54 144 -8 514 p'not_debugging'/1 0 548 -4 176 '!?   WARNING : Non-standard directive encountered.'
  179. 514 p'message'/1 0 176 '!?   --------- ' 145 -8 514 p'message'/2 0 519 16
  180. 540 144 -8 514 p'illegal_directive'/1 0 513 20 518 535 -772 12 536 12 536
  181. -332 536 -216 537 -112 530 56 [ 'discontiguous'/1 -610 'dynamic'/1 -728
  182. 'include'/1 -450 'op'/3 -536] 535 -862 12 536 -418 536 -302 537 -198
  183.  
  184. p'process_nested_file'/3 158 532 148 12 512 28 1 -20 2 -16 544 -4 177 'read'
  185. 114 -28 127 2048 -24 127 2048 -12 127 2048 -8 514 p'open_file'/3 0 548 -4
  186. 144 -24 516 352 144 -28 516 344 192 145 -12 146 -8 514 p'next_clause'/3
  187. 4 160 -4 24 161 -8 24 146 -16 147 -12 514 p'read_clauses'/4 16 160 -4 8
  188. 516 344 160 -8 8 513 20 515 p'close'/1 534 34 4 518
  189.  
  190. p'process_preds'/2 330 528 326 20 12 532 10 8 64 547 518 534 96 291 512
  191. 32 273 83 '-'/2 277 274 1 -32 144 -8 145 -24 114 -28 127 2048 -20 127 2048
  192. -16 127 2048 -4 514 p'find_next_pred'/3 0 545 -4 538 70 144 -32 177 'consult'
  193. 516 136 548 -4 176 'Processing predicate ' 145 -24 514 p'message'/2 0 144
  194. -32 145 -24 146 -12 147 -8 148 -28 514 p'assert_or_output'/5 0 519 150 539
  195. 70 144 -12 177 'dynamic' 516 136 548 -4 176 'Processing dynamic predicate '
  196. 145 -24 514 p'message'/2 0 144 -32 145 -24 146 -12 147 -8 148 -28 514 p'assert_or_output'/5
  197. 0 519 78 540 176 'Compiling predicate ' 145 -24 514 p'message'/2 0 144 -12
  198. 145 -8 146 -28 147 -20 148 -16 514 p'compile_pred'/5 0 144 -32 145 -24 162
  199. -20 32 163 -16 32 514 p'load_or_output'/4 0 160 -28 32 145 -32 513 44 515
  200. p'process_preds'/2 520
  201.  
  202. p'read_clause'/1 90 512 12 0 -12 112 -8 127 2048 -4 516 192 545 -4 538 36
  203. 144 -8 177 'end_of_file' 516 136 548 -4 144 -12 145 -8 516 128 519 22 540
  204. 160 -8 12 145 -12 514 p'expand_term'/2 0 513 24 518
  205.  
  206. p'read_clauses'/4 616 528 564 554 540 532 152 16 512 28 0 -8 1 -12 2 -28
  207. 3 -24 544 -4 127 2048 -20 127 2048 -16 538 14 144 -8 516 640 519 12 540
  208. 144 -8 516 664 548 -4 176 '!?   ERROR : Illegal term, not a clause or directive.'
  209. 514 p'message'/1 4 176 '!?   ------- ' 145 -4 514 p'message'/2 4 144 -4
  210. 145 -12 146 -8 514 p'next_clause'/3 4 160 -4 16 161 -8 16 146 -16 147 -12
  211. 513 28 515 p'read_clauses'/4 533 104 512 20 1 -4 3 -20 80 ':-'/1 288 547
  212. 242 4 114 -16 127 2048 -12 127 2048 -8 514 p'process_directive'/3 0 144
  213. -4 145 -12 146 -8 514 p'next_clause'/3 4 160 -4 16 161 -8 16 162 -12 16
  214. 147 -16 513 28 515 p'read_clauses'/4 533 154 80 '?-'/1 512 28 273 1 -12
  215. 2 -4 3 -28 547 176 '!?   WARNING : Non-standard construct, treated as directive.'
  216. 127 2048 -24 127 2048 -20 127 2048 -16 514 p'message'/1 0 176 '!?   --------- '
  217. 209 '?-'/1 305 514 p'message'/2 0 144 -8 145 -4 146 -24 514 p'process_directive'/3
  218. 8 144 -4 145 -12 146 -8 514 p'next_clause'/3 4 160 -4 16 161 -8 16 162 -12
  219. 16 147 -16 513 28 515 p'read_clauses'/4 533 16 48 'end_of_file' 35 8 547
  220. 518 534 512 20 1 -4 3 -16 98 290 276 82 '-'/2 289 352 127 2048 -12 127 2048
  221. -8 514 p'predicate_indicator'/2 0 144 -4 145 -12 146 -8 514 p'next_clause'/3
  222. 4 160 -4 16 161 -8 16 146 -16 147 -12 513 28 515 p'read_clauses'/4 535 -534
  223. 16 536 -124 537 -110 535 -548 16 537 -120 535 -558 16 536 4 537 -134 530
  224. 24 [ ':-'/1 -418 '?-'/1 -312]
  225.  
  226. p'read_file'/2 68 512 8 1 -8 240 16 208 ':-'/1 370 'include'/1 356 225 368
  227. 'end_of_file' 369 114 -4 195 514 p'read_clauses'/4 0 160 -4 8 145 -8 513
  228. 20 517 164
  229.  
  230. p'reconsult'/1 6 515 p'consult'/1
  231.  
  232. p'wrap_up'/5 120 512 36 1 -12 2 -36 3 -32 4 -28 113 -24 114 -8 115 -4 127
  233. 2048 -20 127 2048 -16 514 p'gen_var_chain'/4 0 144 -12 161 -4 36 162 -20
  234. 36 163 -8 36 148 -16 514 p'genindex'/5 12 224 337 338 161 -4 24 146 -24
  235. 147 -20 148 -16 513 36 515 p'assemble_code'/5
  236.  
  237.